You're the Director/You're The Director.iso/pc/pcf/ds.dir/00309.ls

Text File | 1995-10-08 | 908 b | 32 lines

on mouseDown
  global Double, Increment
  set ClLoc to the mouseV
  put "inside double mouseup"
  if Double = 1 then
    if the visible of sprite 48 = 1 then
      if ClLoc < 455 then
        if Increment = 1 then
          set Increment to -1
        else
          set Increment to 1
        end if
        set the moveableSprite of sprite 48 to 1
        set the height of sprite 48 to 240
        set the width of sprite 48 to 320
        set the locH of sprite 48 to 321
        set the locV of sprite 48 to 258
        set the moveableSprite of sprite 48 to 0
        set Back to the locV of sprite 1
        set Back to Back + Increment
        puppetSprite(1, 1)
        set the moveableSprite of sprite 1 to 1
        set the locV of sprite 1 to Back
        set the moveableSprite of sprite 1 to 0
        set Double to 0
        setbar()
        updateStage()
      end if
    end if
  end if
end